perm filename CYCFRM.PRT[4,LMM] blob sn#037529 filedate 1973-04-23 generic text, type T, neo UTF8
  (DEFPROP
    CYCFRMFNS
    (CYCFRMFNS
      (COMMENT ADVISES TO CHECK FOR STRUCFORMS)
      (AND LOADING
           (ADVISE1
             (QUOTE ATTACHBIVS&LOOPS)
             (QUOTE BEFORE)
             (QUOTE (ARG1 ARG2 ARG3))
             (QUOTE (COND ((STRUCFORM? ARG3)
                           (RETURN (LIST (STRUCFORM
                                           FORM = (LIST (QUOTE 
                                                   ATTACHBIVS&LOOPS)
                                                        ARG1 ARG2 ARG3))
                                         )))))))
      (AND LOADING
           (ADVISE1
             (QUOTE ATTACHBIVALENTS)
             (QUOTE BEFORE)
             (QUOTE (ARG1 ARG2))
             (QUOTE (COND ((STRUCFORM? ARG2)
                           (RETURN (LIST (STRUCFORM
                                           FORM = (LIST (QUOTE 
                                                    ATTACHBIVALENTS)
                                                        ARG1 ARG2)))))))
             ))
      (AND
        LOADING
        (ADVISE1 (QUOTE ATTACHFVS)
                 (QUOTE BEFORE)
                 (QUOTE (ARG1 ARG2))
                 (QUOTE (IF (STRUCFORM? ARG2)
                            THEN
                            (RETURN (STRUCFORM FORM =
                                               (LIST (QUOTE ATTACHFVS)
                                                     ARG1 ARG2)))))))
      (AND
        LOADING
        (ADVISE1 (QUOTE STRUCTURESWITHATOMS)
                 (QUOTE BEFORE)
                 (QUOTE (ARG1 ARG2))
                 (QUOTE (IF (STRUCFORM? ARG2)
                            THEN
                            (RETURN (STRUCFORM FORM =
                                               (LIST (QUOTE 
                                                STRUCTURESWITHATOMS)
                                                     ARG1 ARG2))))))))
    VALUE)
  (COMMENT ADVISES TO CHECK FOR STRUCFORMS)
  (AND LOADING
       (ADVISE1 (QUOTE ATTACHBIVS&LOOPS)
                (QUOTE BEFORE)
                (QUOTE (ARG1 ARG2 ARG3))
                (QUOTE (COND
                         ((STRUCFORM? ARG3)
                          (RETURN (LIST (STRUCFORM FORM =
                                                   (LIST (QUOTE 
                                                   ATTACHBIVS&LOOPS)
                                                         ARG1 ARG2 ARG3)
                                                   ))))))))
  (AND LOADING
       (ADVISE1 (QUOTE ATTACHBIVALENTS)
                (QUOTE BEFORE)
                (QUOTE (ARG1 ARG2))
                (QUOTE (COND
                         ((STRUCFORM? ARG2)
                          (RETURN (LIST (STRUCFORM FORM =
                                                   (LIST (QUOTE 
                                                    ATTACHBIVALENTS)
                                                         ARG1 ARG2))))))
                       )))
  (AND LOADING
       (ADVISE1 (QUOTE ATTACHFVS)
                (QUOTE BEFORE)
                (QUOTE (ARG1 ARG2))
                (QUOTE (IF (STRUCFORM? ARG2)
                           THEN
                           (RETURN (STRUCFORM FORM =
                                              (LIST (QUOTE ATTACHFVS)
                                                    ARG1 ARG2)))))))
  (AND LOADING
       (ADVISE1 (QUOTE STRUCTURESWITHATOMS)
                (QUOTE BEFORE)
                (QUOTE (ARG1 ARG2))
                (QUOTE (IF (STRUCFORM? ARG2)
                           THEN
                           (RETURN (STRUCFORM FORM =
                                              (LIST (QUOTE 
                                                STRUCTURESWITHATOMS)
                                                    ARG1 ARG2)))))))
STOP